home *** CD-ROM | disk | FTP | other *** search
/ Aminet 20 / Aminet 20 (1997)(GTI - Schatztruhe)[!][Aug 1997].iso / Aminet / hard / drivr / VideoText.lha / VideoText5.41 / Install < prev    next >
Text File  |  1997-06-15  |  15KB  |  393 lines
  1.  
  2. (set @default-dest (expandpath ""))
  3.  
  4. ;--------------------------- Englische Texte ----------------------------
  5.  
  6. (set #modeprompt "Would you like to install or deinstall?")
  7. (set #mode0 "Deinstall")
  8. (set #mode1 "Install")
  9. (set #modehelp (cat "\nYeah, right.  There aren't many installation scripts "
  10.         "that can do both, are there? ;-)") )
  11. (set #ioptionprompt "What parts of the installation do you want to perform?")
  12. (set #ioption0 "install i2c.library")
  13. (set #ioption1 "install teletext fonts")
  14. (set #ioption2 "reset some of \"VideoText\"'s ToolTypes")
  15. (set #ioption3 "install WordWrap")
  16. (set #ioption4 "install VTType")
  17. (set #ioption5 "permanently assign \"WNVT:\"")
  18. (set #ioptionhelp (cat "\nBoth i2c.library and the teletext fonts are "
  19.         "required, so if you are running this script for the first time, "
  20.         "you should select those options ON.\n\n"
  21.         "Resetting ToolTypes will clear the SCREENMODE and HOMEDIR "
  22.         "settings, will let you make choices about PALETTE and color "
  23.         "arrangement (COLPERM), and "
  24.         "will let you specify BUSDELAY and an external text EDITOR.\n\n"
  25.         "WordWrap can reformat ASCII texts.  You need it if you want to "
  26.         "run the \"WidePrint\" ARexx script.  VTType is a CLI utility for "
  27.         "quickly converting teletext pages from binary to ASCII format.\n\n"
  28.         "The \"WNVT:\" assign is only needed for teletext projects that "
  29.         "have \"WNVT:VideoText\" as their default tool."
  30.         ) )
  31. (set #uoptionprompt "What parts of the installation do you want to undo?")
  32. (set #uoption0 "remove i2c.library")
  33. (set #uoption1 "remove teletext fonts")
  34. (set #uoption2 "remove WordWrap")
  35. (set #uoption3 "remove VTType")
  36. (set #uoption4 "remove the \"WNVT:\" assignment")
  37. (set #uoptionhelp (cat "\nYou might want to keep the i2c.library, if you "
  38.         "have applications other than \"VideoText\" that still need it.  "
  39.         "Jan Leuverink's TeleText 1.21, for example, does.\n\n"
  40.         "You might also want to keep WordWrap, which is a general purpose "
  41.         "utility for reformatting ASCII texts.\n\n"
  42.         "However, it's safe to get rid of all the other stuff, the "
  43.         "teletext fonts (actually called 'videotext') in particular.") )
  44. (set #hwchoiceprompt "Pick your type of I²C interface:")
  45. (set #hwchoice0 "parallel port, as proposed by Jan Leuverink")
  46. (set #hwchoice1 "serial port, as proposed by \"c't\" magazine")
  47. (set #hwchoice2 "serial port, Wiegand VTX 2000 hardware")
  48. (set #hwchoice3 "serial port, HSL VideoTXT hardware")
  49. (set #hwchoice4 "autoconfig board, M&T TeleTxt")
  50. (set #hwchoicehelp (cat "\nDepending on the kind of interface hardware you "
  51.         "own, I will install one of several customized i2c.library "
  52.         "versions.\n\n"
  53.         "If you picked the wrong library and now want to try another, "
  54.         "note that the old library might still be resident in memory, so "
  55.         "the new one won't be loaded until you reboot your system.  "
  56.         "I will try to remove the current library from memory, but this may "
  57.         "fail (e.g. if an application has this library still open).") )
  58. (set #edprompt "Pick your favourite text editor:")
  59. (set #edhelp (cat "\n\"VideoText\" relies on an external text editor "
  60.         "to let you create and/or modify page presets files.\n\n"
  61.         "This editor should be able to insert text from the Clipboard, "
  62.         "and it should be quick to start.\n\n"
  63.         "In case of doubt, 'c:Ed' is perfectly OK to use.") )
  64. (set #delayprompt "I²C bus delay parameter:")
  65. (set #delayhelp (cat "\nToo little delay will disable the I²C "
  66.         "bus, too much will degrade its throughput.\n\n"
  67.         "The given default value is just a good guess, judging from "
  68.         "the chipset installed in your system (ECS or AGA), and might "
  69.         "be wrong.  So in case you have already determined a good delay "
  70.         "value for your system using \"I2Cscan\", don't hesitate to "
  71.         "enter it here.") )
  72. (set #visualprompt "Visual appearance of the \"VideoText\" screen:")
  73. (set #voption0 "softer colours")
  74. (set #voption1 "black background")
  75. (set #visualhelp (cat "\nI'd say it's a bad idea to activate neither of "
  76.         "these options, but go ahead, try and see what you like best.") )
  77. (set #startupprompt (cat "Click 'Proceed' to have \"WNVT:\" permanently "
  78.         "assigned.  (Yes, I know, you have already confirmed that, but "
  79.         "the Installer is a bit stubborn about such things.)" ) )
  80. (set #startup2prompt (cat "Please click 'Proceed' to once more confirm "
  81.         "the needed modifications to 'user-startup' (removal of the "
  82.         "\"WNVT:\" assignment):") )
  83. (set #uifarewell "Deinstallation complete!")
  84.  
  85. ;--------------------------- Deutsche Texte -----------------------------
  86.  
  87. (if (= @language "deutsch") (
  88. (set #modeprompt (cat "Möchten Sie die Installation ausführen oder "
  89.         "rückgängig machen?") )
  90. (set #mode0 "Deinstallieren")
  91. (set #mode1 "Installieren")
  92. (set #modehelp (cat "\nDas ist doch nett, oder? Ich habe sogar an die "
  93.         "gedacht, die mein Programm nicht leiden können! ;-)") )
  94. (set #ioptionprompt "Welche Teile der Installation wollen Sie durchführen?")
  95. (set #ioption0 "I²C-Library installieren")
  96. (set #ioption1 "Videotext Fonts installieren")
  97. (set #ioption2 "einige der Programm-Merkmale zurücksetzen")
  98. (set #ioption3 "WordWrap installieren")
  99. (set #ioption4 "VTType installieren")
  100. (set #ioption5 "ein permanentes Assign \"WNVT:\" einrichten")
  101. (set #ioptionhelp (cat "\nSie benötigen sowohl die Fonts als auch die "
  102.         "Library. Wenn Sie dieses Skript zum ersten Mal ausführen, "
  103.         "sollten Sie also beide Optionen EINschalten.\n\n"
  104.         "Beim Zurücksetzen von Programm-Merkmalen (ToolTypes) werden die "
  105.         "Einträge zu SCREENMODE und HOMEDIR gelöscht, Sie können ein paar "
  106.         "Details zu PALETTE und Farbreihenfolge (COLPERM) auswählen, und "
  107.         "Sie dürfen den BUSDELAY-Parameter sowie einen externen EDITOR für "
  108.         "die Vorauswahl-Dateien festlegen.\n\n"
  109.         "WordWrap kann ASCII-Texte umformatieren. Es wird für das "
  110.         "mitgelieferte \"WidePrint\" ARexx-Script benötigt. VTType ist "
  111.         "ein CLI-Utility, das VT-Seiten aus Binärdateien als ASCII "
  112.         "anzeigt.\n\n"
  113.         "Das \"WNVT:\"-Assign ist empfehlenswert, um ein schnelles "
  114.         "Anzeigen von VT-Seitendateien mit dem Standardprogramm "
  115.         "\"WNVT:VideoText\" zu ermöglichen."
  116.         ) )
  117. (set #uoptionprompt (cat "Wie weit soll die Installation rückgängig "
  118.         "gemacht werden?") )
  119. (set #uoption0 "I²C-Library entfernen")
  120. (set #uoption1 "Videotext Fonts entfernen")
  121. (set #uoption2 "WordWrap entfernen")
  122. (set #uoption3 "VTType entfernen")
  123. (set #uoption4 "das \"WNVT:\"-Assign aufheben")
  124. (set #uoptionhelp (cat "\nEs könnte sein, daß Sie die i2c.library behalten "
  125.         "wollen, falls Sie nämlich noch andere Anwendungen außer "
  126.         "\"VideoText\" haben, die diese Library benutzen. Das träfe "
  127.         "z. B. auf Jan Leuverink's TeleText 1.21 zu.\n\n"
  128.         "Ebenso könnten Sie WordWrap behalten wollen, den vielseitigen "
  129.         "ASCII-Textformatierer, der auch als "
  130.         "eigenständiges CLI-Tool noch sehr nützlich ist.\n\n"
  131.         "Was aber den restlichen Kram angeht, insbesondere die "
  132.         "Videotext-Fonts: weg damit, braucht keiner mehr.") )
  133. (set #hwchoiceprompt "Was für ein I²C-Bus-Interface verwenden Sie?")
  134. (set #hwchoice0 "Jan Leuverinks TT120, am Parallelport")
  135. (set #hwchoice1 "wie in der \"c't\" empfohlen, am RS232-Port")
  136. (set #hwchoice2 "Wiegand VTX 2000, am RS232-Port")
  137. (set #hwchoice3 "HSL VideoTXT, am RS232-Port")
  138. (set #hwchoice4 "die Markt & Technik TeleTxt-Karte")
  139. (set #hwchoicehelp (cat "\nJe nachdem, was für Interface-Hardware Sie "
  140.         "besitzen, wird eine von mehreren speziell angepassten Varianten "
  141.         "der i2c.library installiert.\n\n"
  142.         "Falls Sie beim ersten Versuch einen falschen Hardware-Typ "
  143.         "angegeben hatten und die Installation darum jetzt wiederholen: "
  144.         "Beachten Sie, daß die zuletzt installierte Library noch resident "
  145.         "im Speicher sein könnte, so daß eine Änderung erst nach Neustart "
  146.         "des Systems bemerkbar würde.  "
  147.         "Ich werde zwar versuchen, die zuletzt installierte Library aus "
  148.         "dem Speicher zu entfernen, das kann aber fehlschlagen (z. B. weil "
  149.         "ein Anwendungsprogramm noch mit dieser Library arbeitet).") )
  150. (set #edprompt "Geben Sie Ihren bevorzugten Texteditor an:")
  151. (set #edhelp (cat "\n\"VideoText\" benutzt einen externen Texteditor "
  152.         "zum Erzeugen und Bearbeiten der Seitenvorauswahl-Dateien. "
  153.         "Dieser Editor sollte Texte aus der Zwischenablage (Clipboard) "
  154.         "einfügen können, und er sollte sich schnell starten lassen.\n\n"
  155.         "Wenn Sie sich unsicher sind: 'c:Ed' ist auf jeden Fall "
  156.         "geeignet.") )
  157. (set #delayprompt "Timing-Parameter für den I²C-Bus:")
  158. (set #delayhelp (cat "\nEin zu kleiner Timing-Parameter macht den I²C-Bus "
  159.         "unbrauchbar, ein zu großer führt lediglich zu "
  160.         "Leistungseinbußen.\n\n"
  161.         "Der vorgeschlagene Wert ist nur eine Vermutung, die auf Analyse "
  162.         "des installierten Chipsatzes (ECS oder AGA) basiert, und kann "
  163.         "schlichtweg falsch sein. Sollten Sie mit Hilfe des "
  164.         "\"I2Cscan\"-Programmes bereits einen "
  165.         "für Ihr System optimalen Timing-Wert ermittelt haben, zögern "
  166.         "Sie nicht, ihn hier einzutragen.") )
  167. (set #visualprompt "Gesamteindruck des \"VideoText\"-Screens:")
  168. (set #voption0 "gedämpftere Farben")
  169. (set #voption1 "schwarzer Hintergrund")
  170. (set #visualhelp (cat "\nMeiner Meinung nach sollten Sie mindestens eine "
  171.         "dieser Optionen auswählen, aber das ist letztendlich reine "
  172.         "Geschmackssache.") )
  173. (set #startupprompt (cat "Klicken Sie bitte 'Weiter', um das permanente "
  174.         "Assign \"WNVT:\" einzurichten. (Ich weiß, das hatten Sie bereits "
  175.         "bestätigt, aber der Installer ist in solchen Dingen leider "
  176.         "etwas starrsinnig.)") )
  177. (set #startup2prompt (cat "Die Änderungen an 'user-startup' (zur Aufhebung "
  178.         "des \"WNVT:\"-Assigns) müssen Sie leider nochmal mit 'Weiter' "
  179.         "bestätigen:") )
  180. (set #uifarewell "Deinstallation abgeschlossen!")
  181. ) )
  182.  
  183. ;--------------------- Vorgaben für die Rückfragen ----------------------
  184.  
  185. (set #doinstall 1)      ; Installieren, nicht Deinstallieren
  186. (set #instmode %101111)       ; alles außer VTType
  187. (set #uinstmode %11010)       ; alles außer WordWrap und i2c.library
  188. (set #hwtype 1)         ; c't-Hardware
  189. (set #editor "c:Ed")
  190. (if (patmatch "(ECS|AGNUS)" (database "chiprev"))
  191.   (set #busdelay 0)
  192. ;else
  193.   (set #busdelay 4)
  194. )
  195. (set #visual 1)         ; gedämpfte Farben, aber kein schwarzer H'grund
  196. (set #palette "000,f00,0f0,ff0,00f,f0f,0ff,fff")
  197. (set #colperm "60712345")
  198.  
  199. ;------------------------------ Rückfragen ------------------------------
  200.  
  201. (if (= @user-level 2)
  202.   (set #doinstall
  203.     (askchoice
  204.       (prompt #modeprompt)
  205.       (help #modehelp)
  206.       (choices #mode0 #mode1)
  207.       (default #doinstall)
  208.     )
  209.   )
  210. )
  211.  
  212. (if #doinstall (
  213.   (if (= @user-level 2)
  214.     (set #instmode
  215.       (askoptions
  216.         (prompt #ioptionprompt)
  217.         (help #ioptionhelp)
  218.         (choices #ioption0 #ioption1 #ioption2 #ioption3 #ioption4 #ioption5)
  219.         (default #instmode)
  220.       )
  221.     )
  222.   )
  223.   (set #uinstmode 0)
  224. ) ( ; "else", d. h. NOT #doinstall:
  225.   (set #uinstmode
  226.     (askoptions
  227.       (prompt #uoptionprompt)
  228.       (help #uoptionhelp)
  229.       (choices #uoption0 #uoption1 #uoption2 #uoption3 #uoption4)
  230.       (default #uinstmode)
  231.     )
  232.   )
  233.   (set #instmode 0)
  234. ) )
  235.  
  236. (if (BITAND 1 #instmode)
  237.   (set #hwtype
  238.     (askchoice        
  239.       (prompt #hwchoiceprompt)
  240.       (help #hwchoicehelp)
  241.       (choices #hwchoice0 #hwchoice1 #hwchoice2 #hwchoice3 #hwchoice4)
  242.       (default #hwtype)
  243.     )
  244.   )
  245. )
  246.  
  247. (if (AND (BITAND 4 #instmode) (= @user-level 2)) 
  248.   (
  249.     (set #editor
  250.       (askfile
  251.         (prompt #edprompt)
  252.         (help #edhelp)
  253.         (default (expandpath #editor))
  254.         ; einfach '(default #editor)' bringt einen seltsamen Bug ...
  255.       )
  256.     )
  257.     (set #busdelay
  258.       (asknumber
  259.         (prompt #delayprompt)
  260.         (help #delayhelp)
  261.         (range 0 100)
  262.         (default #busdelay)
  263.       )
  264.     )
  265.     (set #visual
  266.       (askoptions
  267.         (prompt #visualprompt)
  268.         (help #visualhelp)
  269.         (choices #voption0 #voption1)
  270.         (default #visual)
  271.       )
  272.     )
  273.     (if (BITAND 1 #visual)
  274.       (set #palette "000,d00,0d0,ee0,00d,909,0cc,fff")
  275.     )
  276.     (if (BITAND 2 #visual)
  277.       (set #colperm "06741235")
  278.     )
  279.   )
  280. )
  281.  
  282. ;----------------------------- Installation -----------------------------
  283.  
  284. (if (BITAND 1 #instmode) (
  285.   (select #hwtype
  286.     (copyfiles
  287.       (source "libs/i2c.library.par")
  288.       (dest "LIBS:")
  289.       (newname "i2c.library")
  290.     )
  291.     (copyfiles
  292.       (source "libs/i2c.library.ser")
  293.       (dest "LIBS:")
  294.       (newname "i2c.library")
  295.     )
  296.     (copyfiles
  297.       (source "libs/i2c.library.ser2")
  298.       (dest "LIBS:")
  299.       (newname "i2c.library")
  300.     )
  301.     (copyfiles
  302.       (source "libs/i2c.library.ser3")
  303.       (dest "LIBS:")
  304.       (newname "i2c.library")
  305.     )
  306.     (copyfiles
  307.       (source "libs/i2c.library.card")
  308.       (dest "LIBS:")
  309.       (newname "i2c.library")
  310.     )
  311.   )
  312.   (run "Avail FLUSH >NIL:")
  313. ) )
  314.  
  315. (if (BITAND 2 #instmode)
  316.   (copyfiles
  317.     (source "fonts/")
  318.     (pattern "~(#?.info)")
  319.     (dest "FONTS:")
  320.   )
  321. )
  322.  
  323. (if (BITAND 4 #instmode)
  324.   (tooltype
  325.     (dest "VideoText")
  326.     (settooltype "SCREENMODE")    ; ToolType löschen
  327.     (settooltype "HOMEDIR")
  328.     (settooltype "PALETTE" #palette)
  329.     (settooltype "COLPERM" #colperm)
  330.     (settooltype "EDITOR" #editor)
  331.     (settooltype "BUSDELAY" (cat #busdelay))
  332.   )    
  333. )
  334.  
  335. (if (BITAND 8 #instmode)
  336.   (copyfiles
  337.     (source "c/WordWrap")
  338.     (dest "C:")
  339.   )
  340. )
  341.  
  342. (if (BITAND 16 #instmode)
  343.   (copyfiles
  344.     (source "c/VTType")
  345.     (dest "C:")
  346.   )
  347. )
  348.  
  349. (if (BITAND 32 #instmode) (
  350.   (makeassign "WNVT" @default-dest)
  351.   (startup "VideoText"
  352.     (prompt #startupprompt)
  353.     (help "\n" @startup-help)
  354.     (command (cat "Assign WNVT: \"" @default-dest "\"\n"))
  355.   )
  356. ) )
  357.  
  358. ;---------------------------- Deinstallation ----------------------------
  359.  
  360. (if (BITAND 1 #uinstmode)
  361.   (delete "LIBS:i2c.library")
  362. )
  363.  
  364. (if (BITAND 2 #uinstmode)
  365.   (
  366.     (delete "FONTS:videotext.font")
  367.     (delete "FONTS:videotext/9")
  368.     (delete "FONTS:videotext/15")
  369.     (delete "FONTS:videotext")
  370.   )
  371. )                                
  372.  
  373. (if (BITAND 4 #uinstmode)
  374.   (delete "C:WordWrap")
  375. )
  376.  
  377. (if (BITAND 8 #uinstmode)
  378.   (delete "C:VTType")
  379. )
  380.  
  381. (if (BITAND 16 #uinstmode)
  382.   (startup "VideoText"
  383.     (prompt #startup2prompt)
  384.     (help "\n" @startup-help)
  385.   )
  386. )
  387.  
  388. (if (NOT #doinstall) (
  389.   (message #uifarewell)
  390.   (exit (quiet))
  391. ) )
  392.  
  393.